home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
ttt5.arc
/
DEMO4.EXE
/
lha
/
READDEM3.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-01-31
|
2KB
|
90 lines
Program ReadTTT5_Demo_3;
{$V-} {turn of string checking}
Uses CRT, FastTTT5, READTTT5;
const
UpArrow = #200;
DnArrow = #208;
EnterKey = #13;
F10Key = #196;
var
ProgramName,
UserId,
Password: String;
Active_Field : byte;
Procedure Set_Up_Screen;
{}
begin
clrscr;
FBox(10,5,70,20,yellow,blue,1);
WriteBetween(10,70,5,yellow,blue,' READTTT5 Demo 3 ');
WriteBetween(10,70,8,white,blue,'Enter the data and press F10 to proceed');
WriteAt(15,13,lightgray,blue,'Program name:');
ClearText(30,13,54,13,black,lightgray);
WriteAt(15,15,lightgray,blue,'Access Userid:');
ClearText(30,15,39,15,black,lightgray);
WriteAt(15,17,lightgray,blue,'Password:');
ClearText(30,17,59,17,black,lightgray);
end; {of proc Set_Up_Screen}
Procedure Get_Field_Input;
{}
begin
Case Active_Field of
1 : begin
Read_String_Upper(30,13,25,'',0,ProgramName);
Case R_Char of
UpArrow : Active_Field := 3;
EnterKey,
DnArrow : Active_Field := 2;
end {case}
end;
2 : begin
Read_String(30,15,10,'',0,UserId);
Case R_Char of
UpArrow : Active_Field := 1;
EnterKey,
DnArrow : Active_Field := 3;
end {case}
end;
3 : begin
Read_Password(30,17,30,'',0,Password);
Case R_Char of
UpArrow : Active_Field := 2;
EnterKey,
DnArrow : Active_Field := 1;
end {case}
end;
end;
end; {of proc Get_Field_Input}
begin
Clrscr;
ProgramName := '';
UserId := '';
Password := '';
Active_Field := 1;
Set_Up_Screen;
with RTTT do
begin
WhiteSpace := ' ';
End_Chars := [UpArrow, DnArrow, EnterKey, F10Key];
AllowEsc := false;
end;
Repeat
Get_Field_Input;
Until R_Char = F10Key; {F10}
clrscr;
WriteAT(1,5,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,6,white,black,'TechnoJock''s Turbo Toolkit v5.0');
GotoXY(1,7);
end.